home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / AMOS / Pixels / DrawPixel.s < prev    next >
Encoding:
Text File  |  1980-01-11  |  265 b   |  27 lines
  1. '
  2. ' Pixel Trail code by Peter Cahill, September 98
  3. '
  4. '
  5. ' TGE demonstration......
  6.  
  7.  
  8. G Load Iff "GMS:demos/data/pic.green",0
  9.  
  10.  
  11. Do 
  12. X=G X Mouse
  13. Y=G Y Mouse
  14.  
  15. C=G Pixel(X,Y)
  16.  
  17. G Plot X,Y,2
  18.  
  19. G Update 
  20. G Plot X,Y,C
  21.  
  22. If G Left Click=True Then Exit 
  23.  
  24. Loop 
  25.  
  26. G Screen Close 0
  27.